<script>-- This button will present a pop-up menu of stack names.-- Hold the mouse button down for a few seconds until-- the menu appears. Select one of the choices to-- go to that stack.on mouseDownif the commandKey is down thendoHelpexit mouseDownend if--global stackLastput true into useLastif the optionKey is down then put false into useLastif stackLast is empty thenput "1,1,1,1,1,1" into stackListput the rect of me into thePtif item 2 of thePt > 230 then put 230 into item 2 of thePtput "Songs;Tapes;Labels;Stats;Utility" into listput popUp( thePt, list ) into choice-- if it is 0, then no choice was made...if choice is not 0 thenput piece( list, ";", choice ) into theStackif theStack is not "Songs" then put "Dead " before theStackset the hilite of me to falsego stack theStackend ifend ifend mouseDown</script>
</part>
<part>
<id>17</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>439</left>
<top>125</top>
<right>498</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>-- This button sends you to the next card.on mouseDown---- The following does not seem to work right in HC 2.0---- go next card-- repeat while the mouse is down-- go to next card-- wait 1-- end repeatend mouseDownon mouseUpgo next cardend mouseUp</script>
</part>
<part>
<id>18</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>377</left>
<top>125</top>
<right>437</right>
<bottom>153</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>-- This button sends you to the previous card.on mouseDown---- The following does not seem to work right in HC 2.0----go prev card--repeat while the mouse is down-- go to prev card--end repeatend mouseDownon mouseUpgo prev cardend mouseUp</script>
</part>
<part>
<id>93</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>237</top>
<right>474</right>
<bottom>259</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Utility...</name>
<script>-- This button shows a text field which contains a list of-- miscellaneous handler functions in the background and-- stack scripts which may be handy, but are not important-- enough to include as buttons.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screenshowUtilityunlock screen with visual effect dissolveend mouseUp</script>
</part>
<part>
<id>57</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>162</top>
<right>474</right>
<bottom>184</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Go to...</name>
<script>-- This button will help you find a show by date. You can enter-- an explicit date, and it will try to find that show. You can-- enter just the month and day (mm/dd) and it will assume the-- same year as the current show.----Option Key---- If the option key is used, it will ask you for a year, and send-- you to the first card of that year by using an internal map of-- cards for first-of-year shows.on mouseUpif the commandKey is down thendoHelpelse if the optionKey is down thengoToYearelsegoToDateend ifend mouseUpon goToDate--goto card function-- requests destination from the user. input of the form-- .[+,-]nn jumps relative +- nn cards e.g. .-20 goes back 20 cards-- mm/dd/yy goes to the show date, if it exists--put the number of this card into origCardask "Enter the show date: "if it is empty then exit goToDateif char 1 of it is "." thenput char 3 to the number of chars in it of it into relJumpif char 2 of it is "-" thenput the number of this card - relJump into newCardgo card newCardelse if char 2 of it is "+" thenput the number of this card + relJump into newCardgo card newCardend ifelseif piece( it, "/", 3 ) is empty thenput "/" & piece( field "date", "/", 3 ) after itput itend ifput it into theShowput findShowByDate( theShow ) into foundItif foundIt is false thenanswer "Show date not found !"end ifhide messageend ifend goToDateon goToYearask "First card of Year: "if it is empty then exit goToYeargoFirstCardOfYear itend goToYearon planA -- brute force FINDask "Enter the show date: "if it is empty then exit planAput it into theShowconvert it to secondsif it is theShow thenfind theShow -- in field "date"elseconvert theShow to short dateput the long time into startTimefind theShow -- in field "date"put the long time into endTimeconvert startTime to secondsconvert endTime to secondsanswer "Took " & endTime-startTime & " seconds!"end ifif the result is not empty thenset the cursor to 4set the lockScreen to trueconvert theShow to secondsrepeat for the number of cardsget field "date"convert it to secondsif it >= theShow then exit repeatgo next cardend repeatend ifend planA</script>
</part>
<part>
<id>60</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>187</top>
<right>474</right>
<bottom>209</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find...</name>
<script>-- This button is a quick way to get to the find command.-- It will search everywhere on the cards for whatever you-- want. This is the way to find a particular song. If you-- want to find a show by the date, it is faster to use-- the "Go to..." button.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--doMenu "Find..."end mouseUp</script>
</part>
<part>
<id>78</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>402</left>
<top>212</top>
<right>474</right>
<bottom>234</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search...</name>
<script>-- This button will send you to the standard search utility-- which will allow you to search for a group of songs. You-- can search for an exact sequence, or any show which has all-- the songs. This is handy for identifying those "mystery-- tapes". You can even search for a sequence that opens or-- closes a set.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--searchend mouseUp</script>
</part>
<part>
<id>103</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>371</left>
<top>124</top>
<right>505</right>
<bottom>271</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>utility b</name>
<script>on mouseUphideUtilityend mouseUp</script>
</part>
<part>
<id>104</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>374</left>
<top>127</top>
<right>502</right>
<bottom>268</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>utility a</name>
<script>on mouseUphideUtilityend mouseUp</script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>468</left>
<top>314</top>
<right>505</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1012</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Return</name>
<script>-- This button pops a card. It will send you to the last place-- where a card was pushed.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--visual effect iris closepop cardend mouseUp</script>
</part>
<part>
<id>37</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>176</top>
<right>493</right>
<bottom>198</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Import Shows...</name>
<script>-- This button lets you import shows from a text file.-- I use this when I get a bunch of shows from NEWS-- or the WELL. The shows have to be in a specific format,-- a line with the date and location, followed by songs on-- individual lines, with blank lines separating the sets.-- It will also treat any line with an equal sign (=) in-- column 1 as a comment, stripping off the first character-- and appending it to the comment field.---- It will prompt you pick the input text file. It will also-- ask you if you want to validate and add the songs as they-- are input. This is a fairly slow process which cross-checks-- each song against the "Songs" stack. It also adds each song-- into the totals for the year on the song card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--global yearSongs, showCount, deadDirget FileName( "TEXT" )if it is empty then exit mouseUp--put it into theFileput "Importing file ... " & theFile---- we be inputin'--put 0 into totalSongsput 0 into showCountput false into validateanswer "Validate and add to songs stack? (slow)" with¬"Cancel" or "OK" or "Don't Bother"if it is "Cancel" then exit mouseUpif it is "OK" then put true into validateset the cursor to 4-- set the lockScreen to trueimportFile theFile, validateset the lockScreen to falsebeep 3answer "Imported a total of" && showCount && "new shows"end mouseUpon importFile theFile, validateglobal yearSongs, showCount, deadDiropen file theFileput empty into showDateput "" into newSetput "" into notesput 0 into yearSongsput 0 into showSongsunlock screenrepeatshowBusyread from file theFile until returnif it is empty then -- end-of-fileif showDate is not empty thennewShow showDate, showloc, notes, songList, showSongs, validateend ifexit repeatelse if first char of it is "#" then -- display commentput it--wait 1 secondnext repeatelse if first char of it is "=" then -- add to notesdelete first char of itput trim(it) & return after notesnext repeatend ifif it is return thenif showSongs > 0 thenput "" & return into newSetelsenext repeatend ifend if-- need to trim off excess whitespace for Usenet habitsput Trim( it ) & return into recordget first word of recordif offset( char 1 of it, "0123456789" ) > 0 then -- new cardif showDate is not empty thennewShow showDate, showLoc, notes, songList, showSongs, validateend ifget first word of recordconvert it to short dateput it into showDatedelete first word of recordput empty into last character of recordif char 1 of record is " " then delete char 1 of recordput record into showLocput empty into songListput "" into newSetput "" into notesput 0 into showSongsadd 1 to showCountput "shows: " & showCountelseif record is not return thenput newSet & record after songListput empty into newSetadd 1 to showSongsend ifend ifend repeatclose file theFileend importFileon newShow showDate, showLoc, notes, songList, songCount, doValidatedomenu "New Card"put showDate into field "date"put showLoc into field "location"put notes into field "Comments"put songCount into field "total songs"put songList into field "songs"if doValidate is true thenvalidateShow empty-- addShowend ifend newShow</script>
</part>
<part>
<id>45</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>396</left>
<top>318</top>
<right>421</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20689</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Home</name>
<script>-- This button sends you to the Home stack.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--lock screengo stack "Dead Utility"playDeadSong "Franklins"go "Home"unlock screen with visual effect iris closeend mouseUp</script>
</part>
<part>
<id>48</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>77</left>
<top>48</top>
<right>197</right>
<bottom>67</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>date</name>
<script></script>
</part>
<part>
<id>50</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>87</left>
<top>114</top>
<right>294</right>
<bottom>333</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>songs</name>
<script>on mouseDownput word 2 of the clickLine into songLineif line songLine of field "songs" is empty thenhideTheHiliteexit mouseDownend ifhiliteLine songLineend mouseDown</script>
</part>
<part>
<id>51</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>77</left>
<top>25</top>
<right>504</right>
<bottom>45</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>location</name>
<script></script>
</part>
<part>
<id>52</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>308</left>
<top>49</top>
<right>363</right>
<bottom>68</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>total songs</name>
<script>on mouseUpset the cursor to watchput countSongs() into meend mouseUp</script>
</part>
<part>
<id>54</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>309</left>
<top>119</top>
<right>360</right>
<bottom>151</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Tapes</name>
<script>-- This button sends you to the Dead Tapes stack. It looks for a-- card for a tape for the current show. If not found, it will-- offer to create one for you, filling in the date and location.-- You can do that, cancel, or just go to the Tapes stack without-- bothering to create the new card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--global listDate, labelList, listVenueput field "date" into listDateput field "location" into listVenueput field "songs" into labelListlock screenpush this cardgo to "Dead Tapes"find listDate in field "date"if the result is not empty thenanswer "No tape yet. Set one up?" with "Cancel" or¬"OK" or "Don't Bother"if it is "Cancel" thenpop cardexit mouseUpelse if it is "OK" thendoMenu "New Card"put listDate into field "date"put listVenue into field "location"unlock screenclick at the loc of field "source"end ifend ifend mouseUp</script>
</part>
<part>
<id>55</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>203</top>
<right>493</right>
<bottom>225</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export Shows...</name>
<script>-- This button lets you dump a collection of shows to a-- test file. If you are passing the stacks around, it-- is actually more compact to pass around and empty-- shows stack and all the songs in text files, as the-- text files compress better.---- The function lets you dump on year or all years, to-- either a file or a list on the screen if you really-- want. You can select to dump just the date/location, with-- the song lists as well, and/or with the comments field.-- The format written is the acceptable input for the Import-- function.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--push this cardset the lockScreen to truego stack "Dead Utility"go to card "dump shows"set the lockScreen to falseend mouseUp</script>
</part>
<part>
<id>56</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>383</left>
<top>149</top>
<right>493</right>
<bottom>171</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete Shows...</name>
<script>-- This button allows you to specify a block or range-- of shows to delete. This is handy if you want to-- replace a block (like a years worth) with a text file-- which you know to be more acurate than what you already-- have.---- IMPORTANT!! You should make sure your stack is sorted-- by date before invoking this feature.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--ask "delete from..."if the result is "Cancel" then exit mouseUpif it is not "." then convert it to short dateput it into fromCardask "...up to..." with fromCardif the result is "Cancel" then exit mouseUpconvert it to short dateput it into uptoCardif fromCard is "." thenput bkgnd field "date" into fromCardelsefind fromCard in bkgnd field "date"if the result is not empty thenanswer "None found!"exit mouseUpend ifend ifconvert fromCard to secondsconvert uptoCard to secondsput true into keepAskingrepeatget bkgnd field "date"convert it to secondsif it > uptoCard or it < fromCard then exit repeatif keepAsking is true thenanswer "Continue..." with "OK" or "Cancel" or "Don't bug me"if the result is "Cancel" then exit repeatif it is "Don't bug me" then put false into keepAskingend ifdoMenu "Delete Card"end repeatend mouseUp</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>411</left>
<top>66</top>
<right>466</right>
<bottom>122</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>hey now</name>
<script>-- This button plays a random tune.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--singAndDanceend mouseUp</script>
</part>
<part>
<id>59</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>21</left>
<top>195</top>
<right>51</right>
<bottom>238</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>bbd</name>
<script>-- This button will tell you what I think of the Grateful Dead.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if---- not any more... go to bg script to send you to wherever-- it decides. Makes it easy to keep the sounds wherever you want.-- go to "Dead Utility"playDead "bbd"dance 25end mouseUp</script>
</part>
<part>
<id>63</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>318</left>
<top>160</top>
<right>353</right>
<bottom>190</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>128</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Labels</name>
<script>-- This button sends you to the Dead Labels stack. It looks for a-- card with a label for the current show. If not found, it will-- offer to create a set of labels for you, filling in the date,-- location, and the songs from sets 1 and two. The current format-- starts the second set on the second label card. It puts the-- tape flip after the sixth song for each set.---- If you don't want to create the labels, you can cancel, or-- just go to the Tapes stack without bothering to create the-- new card.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--global listDate, labelList, listVenueput field "date" into listDateput field "location" into listVenueput field "songs" into labelList--push this cardset the lockScreen to truego to stack "Dead Labels"find listDate in field "date"-- go card cardNameif the result is not empty thenanswer "No labels. Shall we make 'em?" with "Cancel"¬or "Don't Bother!" or "OK"if it is "Cancel" thenpop cardexit mouseUpelse if it is "OK" thennewLabels( listDate )end ifend ifend mouseUpon fooput empty into songListset the cursor to 4go to stack "Dead Shows"find cardName in field "date"if the result is empty thenput field "songs" into songListend ifgo to stack "Dead Labels"doMenu "New Card"set name of this card to cardNameput cardName into field "date"put "1" into field setput Venue into field "location"put Venue into field "side location"doMenu "Copy Card"doMenu "Paste Card"put "2" into field "set"go previf songList is not empty thenput 0 into firstSetput 0 into secondSetput 1 into songNumput the number of lines in songList into totalSongs-- do first set labelput "side A" into tapeSiderepeatput line songNum of songList into thisSongadd 1 to songNumif thisSong is empty thenexit repeatend ifput thisSong & return after field tapeSideadd 1 to firstSetif firstSet > 6 thenput "side B" into tapeSideend ifend repeat-- do second set labelgo to next cardput "side A" into tapeSiderepeatput line songNum of songList into thisSongput thisSong & return after field tapeSideadd 1 to songNumadd 1 to secondSetif songNum > totalSongs thenexit repeatend ifif secondSet > 6 thenput "side B" into tapeSideend ifend repeatgo to previous cardend iftabKeytabKeyend foo</script>
</part>
<part>
<id>65</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>5</left>
<top>292</top>
<right>76</right>
<bottom>314</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Validate</name>
<script>-- This button will validate each song in the show list-- against the Songs stack for correctness. If it-- does not find a particular title, it will search the-- "Aka" field to see if there is some other name by which-- the song might be known, and will then allow you to-- convert it to the recorded title in Songs. If it-- can't find the song at all, it will allow you to-- skip it or correct it.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--validateShow emptyend mouseUp</script>
</part>
<part>
<id>69</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>70</left>
<top>318</top>
<right>88</right>
<bottom>334</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30171</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Last Time</name>
<script>-- This button will send you to the most recently previous-- show in which the currently selected song was played.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put false into tellDiffif the optionKey is down then put true into tellDiffset the cursor to 4set the lockScreen to trueput field id 71 into thisSongput the number of this card into origNumput origNum into backUpif origNum > 50 thengo card origNum - 10 -- try the last 10 shows...findSong thisSongif the number of this card is origNum then -- keep trying back furtherrepeat foreversubtract 100 from backUpif backUp < 0 then exit repeatgo card backUpfindSong thisSongif the number of this card is not origNum then exit repeatend repeatend ifend ifif the number of this card is origNum thengo card 1 -- oh well, nice try. All the way backfindSong thisSongif the number of this card is origNum thenanswer "This is the first time!"setSongHilite thisSongexit mouseUpend ifend ifput the number of this card into foundNum-- now march forward to the originalrepeat foreverfindSong thisSongif the number of this card is origNum thengo card foundNumsetSongHilite thisSongif tellDiff is true thenset the lockScreen to falseanswer "It's been " & (origNum - the number of this card) & " shows!"end ifexit mouseUpend ifput the number of this card into foundNumgo next cardend repeatend mouseUp</script>
</part>
<part>
<id>70</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>293</left>
<top>318</top>
<right>307</right>
<bottom>334</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2715</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Time</name>
<script>-- This button will send you to the next show in which the-- currently selected song was played.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put false into tellDiffif the optionKey is down then put true into tellDiffset the cursor to watchset the lockScreen to trueput bg field "selected" into theSongput the number of this card into origNumrepeat forevergo next cardfindSong theSongif the number of this card <= origNum thengo card origNumanswer "This is the last time it was played!"setSongHilite theSongexit mouseUpend if--go prev card -- this is the only way I can find...go next card -- ... to clear the selection rectangle from the find--setSongHilite theSongset the lockScreen to falseselect emptyif tellDiff is true thenanswer "It's been " & (the number of this card - origNum) & " shows!"end ifexit mouseUp-- end ifend repeatbeep 1end mouseUp</script>
</part>
<part>
<id>71</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>88</left>
<top>319</top>
<right>276</right>
<bottom>333</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>bold</textStyle>
<textHeight>12</textHeight>
<name>selected</name>
<script>on mouseDownset the lockScreen to trueset cursor to watchpush this cardput field "selected" into theSongif theSong is not empty thengo to stack "Songs"find theSong in field "title"if the result is empty thenput the id of this card into firstCardrepeat foreverif field "title" is theSong then exit mouseDowngo next cardfind theSong in field "title"if the id of this card is firstCard thenplay boingset the lockScreen to trueput "Well, it's close... :-}"exit mouseDownend ifend repeatend ifend ifplay "boing"pop cardend mouseDown</script>
</part>
<part>
<id>74</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>17</left>
<top>244</top>
<right>64</right>
<bottom>266</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Edit</name>
<script>-- This button unlocks the songs field for entry/editing.-- When the field is re-locked the song count field-- is automatically re-counted.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--if the lockText of field "songs" is true thenset the hilite of the target to trueset the lockText of field "songs" to falseput (item 1 of the rect of field "songs") +1 & "," &¬(item 2 of the rect of field "songs") + 1 into theLocclick at theLocelseset the hilite of the target to falseset the lockText of field "songs" to trueput countSongs() into field "total songs"end ifend mouseUp</script>
</part>
<part>
<id>75</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>369</left>
<top>317</top>
<right>393</right>
<bottom>341</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26635</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Help</name>
<script>-- This button will get you general help... an overview-- of the cardon mouseUppush this cardgo card "Shows Help" of stack "Dead Utility"playDead "help"end mouseUp</script>
</part>
<part>
<id>77</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>268</top>
<right>70</right>
<bottom>290</bottom>
</rect>
<style>shadow</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Add...</name>
<script>-- This button will increment the syear count by one for each-- unique song in the shows list. It takes a little time.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--if the hilite of bg button "Don't Count" is true thenput "This show doesn't count!!!"exit mouseUpend ifanswer "Add these songs to the songs totals?"¬with "OK" or "Cancel"if it is "OK" thenlock screenset the cursor to 4addShowend ifend mouseUp</script>
</part>
<part>
<id>81</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>479</left>
<top>47</top>
<right>495</right>
<bottom>64</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>bold</textStyle>
<textHeight>16</textHeight>
<name>I Was There</name>
<script>on mouseUpif target is empty thenput "X" into the targetelseput empty into the targetend ifend mouseUp</script>
</part>
<part>
<id>83</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>42</left>
<top>27</top>
<right>60</right>
<bottom>43</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>30171</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Last Time Loc</name>
<script>-- This button will send you to the last show-- played at this venue. It relies on the consistancy-- of names used in the Place field, which is-- admitedly poor at this time.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put false into tellDiffif the optionKey is down then put true into tellDiffset the cursor to watchlock screenput item 1 of field "location" into thisLocput the number of this card into origNumput origNum into backUpput "Finding last time played at " & thisLocif origNum > 50 thengo card origNum - 10 -- try the last 10 shows...find string thisLoc in field "location"if the number of this card is origNum then -- keep trying back furtherrepeat foreversubtract 100 from backUpif backUp < 0 then exit repeatgo card backUpfind string thisLoc in field "location"if the number of this card is not origNum then exit repeatend repeatend ifend ifif the number of this card is origNum thengo card 1 -- oh well, nice try. All the way backfind string thisLoc in field "location"if the number of this card is origNum thenanswer "This is the first time!"hide messageexit mouseUpend ifend ifput the number of this card into foundNum-- now march forward to the originalrepeat foreverfind string thisLoc in field "location"if the number of this card is origNum thengo card foundNumunlock screen with visual effect dissolveif tellDiff is true thenanswer "It's been " & (origNum - the number of this card) & " shows!"end ifhide messageexit mouseUpend ifput the number of this card into foundNumgo next cardend repeatend mouseUp</script>
</part>
<part>
<id>84</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>61</left>
<top>27</top>
<right>75</right>
<bottom>43</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>2715</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next Time Loc</name>
<script>-- This button will send you to the next show to be-- played at this venue. It relies on the consistancy-- of names used in the Place field, which is-- admitedly poor at this time.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--put false into tellDiffif the optionKey is down then put true into tellDiffset the cursor to 4lock screenput item 1 of field "location" into nextLocput the number of this card into origNumput "Finding next time played at " & nextLocrepeat forevergo next cardfind string nextLoc in field "location"if the number of this card <= origNum thengo card origNumanswer "This is the last time it was played!"hide messageexit mouseUpend if-- if theSong is in field "songs" then -- not necessary with find stringunlock screen with visual effect dissolveif tellDiff is true thenanswer "It's been " & (the number of this card - origNum) & " shows!"end ifhide messageexit mouseUp-- end ifend repeatend mouseUp</script>
</part>
<part>
<id>88</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <true /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>85</left>
<top>69</top>
<right>372</right>
<bottom>108</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font></font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>comments</name>
<script></script>
</part>
<part>
<id>92</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>425</left>
<top>308</top>
<right>464</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>20186</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Sort</name>
<script>-- This button will sort the cards in the stack by show date-- It also re-builds the internal card map that helps-- Stack-O-Dead find the first show of a given year. Use-- this button whenever you add or delete any cards, even if-- you don't thing you changed the sorted order.on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--sort datetime by field "date"put "Setting up first card map"setUpFirstOfYearend mouseUp</script>
</part>
<part>
<id>94</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>19</top>
<right>20</right>
<bottom>40</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>make new card</name>
<script>-- So you found it!!-- This button is a convenience for creating a new-- show card. It creates a new card and puts you in-- the date field.on mouseUpdoMenu "New Card"click at the loc of field "date"end mouseUp</script>
</part>
<part>
<id>90</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>4</left>
<top>231</top>
<right>344</right>
<bottom>336</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>misc commands</name>
<script>-- Eventually this mouse up script will accept a click on a line-- and execute the command, or at least put it...on mouseUphide the targetend mouseUp</script>
<script>-- This field indicates that the show is not to be used-- when calculating the year counts for songs, or in any-- of the statistics. It is generally set for things like-- an appearance of Bob and Jerry on Letterman or something-- which is notable here, but not really part of the Dead-- statistics.---- I do usually count things like the Saturday Night Live-- appearnaces since it is the Dead, and it was a live-- performance before an audience. DeadBase does not always-- count such performances. I also usually count the benefit-- type gigs where maybe one or two of the band members are not-- there, but only if it's mostly the Dead, and the material-- is generally from the "Dead Songbook".on mouseUpif the commandKey is down thendoHelpexit mouseUpend if--set the hilite of me to not the hilite of meif the hilite of me is true thenput "Statistically speaking, this show won't be counted."end ifend mouseUp</script>
</part>
<part>
<id>95</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>20</top>
<right>87</right>
<bottom>339</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>first of year</name>
<script>on mouseUphide the targetend mouseUp</script>
</part>
<part>
<id>105</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>415</left>
<top>248</top>
<right>461</right>
<bottom>263</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Done</name>
<script>on mouseUplock screenif the visible of bg field "utility a" is true then hideUtilityunlock screen with visual effect dissolveend mouseUp</script>
</part>
<part>
<id>108</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>375</left>
<top>128</top>
<right>501</right>
<bottom>144</bottom>
</rect>
<style>transparent</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>ΓÇó Utility ΓÇó</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>90</id>
<text>validStack -- validates all shows, results to filegoFirstCardOfYear -- goes to first show of year</text>
<text>Help for bkgnd button "Utility..."... This button shows a text field which contains a list of miscellaneous handler functions in the background and stack scripts which may be handy, but are not important enough to include as buttons.</text>
</content>
<name>Show Card</name>
<script>on mouseDownhideTheHiliteend mouseDownon closeCardhideTheHiliteset the scroll of field "songs" to 0end closeCardon miscshow field "misc commands"end miscon showUtilityshow bg field "utility a"show bg field "utility b"show bg button "• Utility •"show bg button "Import Shows..."show bg button "Export Shows..."show bg button "Delete Shows..."show bg button "Done"end showUtilityon hideUtilityhide bg field "utility a"hide bg field "utility b"hide bg button "• Utility •"hide bg button "Import Shows..."hide bg button "Export Shows..."hide bg button "Delete Shows..."hide bg button "Done"end hideUtilityon hideTheHilitelock screenhide bkgnd button "Last Time"hide bkgnd button "Next Time"hide field "selected"---put empty into field "selected"end hideTheHiliteon hiliteLine theLine-- remember that the scroll bar is 16 pixels wide.-- textWidth is field width - 16-- text center is field center - 8put the rect of field "songs" into setRectput line theLine of field "songs" into theSong--put item 2 of setRect into setTopPixelput item 4 of setRect into setBottomPixel--put the textHeight of field "songs" into linePixelsput (linePixels * (theLine - 1)) - the scroll of field "songs"¬+ 7 + setTopPixel into midLine--if ( midLine > setBottomPixel ) thenput the scroll of field "songs" + (midLine - setBottomPixel) + 7¬into scrollPixelsset the scroll of field "songs" to scrollPixelssubtract ((midLine - setBottomPixel) + 7) from midLineend ifset the lockScreen to truesetSelect theSong, midLineshowButtons midLineend hiliteLineon setSongHilite theSongput the number of lines in field "songs" into numSongsrepeat with i = 1 to numSongsif line i of field "songs" is theSong thenhiliteLine iexit setSongHiliteend ifend repeatend setSongHiliteon selectSong songNumset the lockScreen to falseput the rect of field "selected" into theRectput item 2 of theRect + 7 into midLineshowButtons midLineend selectSongon setSelect theSong, midLineput the loc of field "songs" into setLocput theSong into field "selected"put (item 1 of setLoc - 8) & "," & midLine into theLocset the loc of field "selected" to theLocshow field "selected"end setSelecton showButtons midLineput the rect of field "songs" into setRectput (item 1 of setRect - 8) & "," & midLine into theLocset the loc of bkgnd button "Last Time" to theLocshow bkgnd button "Last Time"put (item 3 of setRect + 6) & "," & midLine into theLocset the loc of bkgnd button "Next Time" to theLocshow bkgnd button "Next Time"end showButtonson dumpWasThereglobal deadDir, defFileCreatorask "Dump list to file..." with deadDirif it is empty then exit dumpWasThereput it into fileNameopen file fileNamelock screenpush this cardgo card 1find "X" in field "I Was There"if the result is not empty then exit dumpWasThereput field "date" into firstDaterepeat with i = 1 to the number of cardsshowBusywrite field "date" & " " & field "location" & return to file fileNamefind "X" in field "date"if field "date" is firstDate then exit repeatend repeatclose file fileNamesetFileType fileName, "TEXT", defFileCreatorend dumpWasThereon findSong theSongrepeat foreverfind string theSongif the result is not empty thenanswer "That song doesn't ring a bell..."exit findSongend ifif theSong is in field "songs" thenexit findSongend ifend repeatend findSongon replaceSong oldTitle, newTitleset the lockScreen to truego card 1find oldTitle in field "songs"if the result is empty thenput the id of this card into firstCardrepeat foreverput field "songs" into songListrepeat with index = 1 to 50if line index of field "songs" is oldTitle thenput newTitle into line index of field "songs"exit repeatend ifend repeatgo next cardfind oldTitle in field "songs"if the result is not empty or¬the id of this card is firstCard thenexit repeatend ifend repeatend ifend replaceSongon cleanShowpush this cardset the lockScreen to trueget field "date"convert it to dateItemsput item 1 of it into theYearput the number of field "songs" into songsFldrepeat with i = 1 to the number of lines in field songsFldget line i of field songsFldcleanSong it, theYear, -1end repeatpop cardset the lockScreen to falseanswer "Delete the card?" with "OK" or "NO!"if it is "OK" thendoMenu "Delete Card"end ifend cleanShowon addShowpush this cardlock screenget field "date"convert it to dateItemsput field "songs" into songListput item 1 of it into theYearput return into newListgo stack "Songs"repeat with i = 1 to the number of lines in songListput Trim(line i of songList) into theSongif theSong is not empty thenif (return & theSong & return) is not in newList thenput theSongshowBusycleanSong theSong, theYear, 1put theSong & return after newListend ifend ifend repeatpop cardend addShowon cleanSong theSong, theYear, valfind string theSong in field "title"if the result is empty thenput the id of this card into firstCardrepeat foreverif field "title" is theSong thenchangeCount val, theYearexit repeatend ifgo next cardfind theSong in field "title"if the id of this card is firstCard then exit repeatend repeatend ifend cleanSongon validateShow fileNameput 0 into totProblemsput Trim( field "songs" ) into songListif the number of lines in songList is 0 thenput "No songs..."exit validateShowend ifput field "total songs" into songCountif fileName is not empty thenput return & field "date" && field "location" & return into showHeaderend ifput 0 into songsCheckedput 1 into songIndexset the lockScreen to truepush this cardput false into doUpdateset the cursor to 4go stack "Songs"-- do for number of songs plus some slush, never more than 50put 0 into firstIDrepeat while songsChecked < (songCount + 12) and songIndex < 50put line songIndex of songList into thisSongadd 1 to songIndexif thisSong is empty thennext repeatend ifadd 1 to songsCheckedput huntSong( thisSong, fileName ) into checkSong-- put old huntSong back hereif checkSong is empty thenbeep 2next repeatelse if checkSong is not thisSong thenput checkSong into line (songIndex - 1) of songListadd 1 to totProblemsend ifend repeatpop cardunlock screenif totProblems > 0 thenput totProblems && "songs changed!"put songList into field "songs"put songsChecked into field "total songs"elseput "No problems!"end ifend validateShowon validateTitles fileNameglobal bigSongListput 0 into totProblemsput Trim( field "songs" ) into songListif the number of lines in songList is 0 thenput "No songs..."exit validateTitlesend ifput field "total songs" into songCountput 0 into songsCheckedput 1 into songIndex--repeat while songsChecked < (songCount + 12) and songIndex < 50put line songIndex of songList into thisSongadd 1 to songIndexif thisSong is empty thennext repeatend ifadd 1 to songsCheckedif return & thisSong & return is not in bigSongList thenwrite thisSong & " - " & field "date" & return to file fileNameadd 1 to totProblemsend ifend repeatunlock screenif totProblems > 0 thenput totProblems && "problems!"elseput "No problems!"end ifend validateTitlesfunction huntSong theSong, fileNameglobal autoFixput empty into firstIDput empty into showHeader -- need to pass this in?put Trim( theSong ) into thisSongif thisSong is empty thenexit huntSongend ifrepeat forever -- outer function loopput false into doRetryrepeat forever -- look for this as the title...find thisSong in field "title"if the result is not empty then -- not found...exit repeatend ifif firstID is empty thenput the id of this card into firstIDelseif the ID of this card is firstID thenexit repeat -- didn't find it...end ifend ifif field "title" is thisSong thenreturn thisSong -- for sure!end ifgo next cardend repeatif fileName is not empty thenwrite "Not sure about ... '" & thisSong & "'" & return to file fileNameelseput "Not sure about ... '" & thisSong & "'"end ifput empty into firstIDrepeat forever -- now check for an alias...find thisSong in field "aka"if the result is not empty then -- if one IS NOT FOUNDexit repeatend ifif firstID is empty thenput the id of this card into firstIDelseif the ID of this card is firstID thenexit repeatend ifend ifput field "title" into realSongif autoFix is true thenif fileName is not empty thenwrite "Changining '" & thisSong & "' to " & realSong & return to file fileNameelseput "Changining " & thisSong & " to " & realSongend ifreturn realSongend ifanswer "Maybe it's ... " & quote & realSong & quote¬with "Yup!" or "Nope!"if it is "Yup!" thenput realSong into thisSongreturn realSongend ifgo next cardend repeat---- if we have reached here, we have a problemif fileName is empty thenrepeat foreveranswer "Don't recognize " & thisSong & "..." with¬"Skip" or "Create" or "Change"if it is "Skip" thenexit repeatelse if it is "Create" thendoMenu "New Card"put thisSong into field "title"exit repeatelse if it is "Change" thenput thisSong into oldSongask "What is the correct title?" with thisSongif it is empty then exit repeatput it into thisSongput true into doRetryexit repeatend ifend repeatelse -- we have a fileName, use it!-- play boingwrite showHeader & thisSong & return to file fileNameput empty into showHeaderend ifif not doRetry then return thisSong -- if I get this far, it's OKend repeatend huntSongon validFileglobal deadDir, defFileCreatorask "Validate show to file:" with deadDirif it is empty then exit validFileput it into fileNameopen file fileNamevalidateShow fileNameclose file fileNamesetFileType fileName, "TEXT", defFileCreatorend validFile-- This handler will validate the entire stack. It tries to use a file-- in your default directory called "songList" which contains a list-- of valid song titles in alphabetical order. You should generate-- such a file from the Songs stack using the Export (titles only)-- function.--on validStackglobal bigSongList, deadDir, defFileCreatorask "Validate show to file:" with deadDirif it is empty then exit validStackput it into fileNameput return into bigSongListput deadDir & ":songList" into fileNameopen file listFilerepeat foreverread from file listFile until returnif it is empty then exit repeatput it after bigSongListend repeatclose file listFilebeep 3open file fileNamewrite "Starting at ... " & field "date" & return to file fileNamepush this card-- go card 1repeat for the number of cardsvalidateTitles fileNamego next cardend repeatclose file fileNamesetFileType fileName, "TEXT", defFileCreatorpop cardend validStackon finishYearglobal autoFix, deadDir, defFileCreatorput autoFix into localFixput true into autoFixpush this cardput field "date" into theDateput piece( theDate, "/", 3 ) into startYearput "Doing rest of year '" & startYearput deadDir & ":validate" into theFileopen file theFilerepeat for the number of cardswrite theDate & ":" & return to file theFilevalidateShow theFilego next cardput field "date" into theDateput piece( theDate, "/", 3 ) into year--if year is not startYear then exit repeatend repeatclose file theFilesetFileType theFile, "TEXT", defFileCreatorput localFix into autoFixpop cardend finishYearon checkDupsglobal deadDir, defFileCreatorpush this cardput deadDir & ":duplicates" into fileNameopen file fileNamego card 1repeat for the number of cardsput findDups( field "songs" ) into theDupsif theDups is not empty thenwrite field "date" & ": " & theDups & return to file fileNameend ifgo next cardend repeatclose file fileNamesetFileType fileName, "TEXT", defFileCreatorpop cardend checkDupsfunction findDups theListput empty into outListput empty into theDupsrepeat with i = 1 to the number of lines in theListif line i of theList is in outList thenput line i of theList & "," after theDupsend ifput line i of theList after outListend repeatreturn theDupsend findDupson countAllrepeat for the number of cardsput countSongs() into theCountif theCount is not field "total songs" thenbeep 2put field "date" & " - old: " & field "total songs" &¬", new: " & theCountput theCount into field "total songs"end ifgo next cardend repeatend countAllfunction countSongsput empty into outListput field "songs" into songListput 0 into songCountrepeat with i = 1 to the number of lines in songListshowBusyif line i of songList is not empty then-- don't count duplicates within a show...if line i of songList is not in outList thenput line i of songList after outListadd 1 to songCountend ifend ifend repeatreturn songCountend countSongson updateCountsrepeat for the number of cardscountSongsgo next cardend repeatend updateCountson fixitglobal autoFixanswer "Use auto-fix...?" with "OK" or "No"if it is "OK" thenput true into autoFixelseput false into autoFixend ifend fixit-- the bg field "first of year" contains a list of years and the-- number of the first card for that year. following is a setup-- routine for the data in this field, which should rarely change,-- and the goToFirstOfYear handler which uses iton setUpFirstOfYearpush this cardlock screengo card 1put piece( field "date", "/", 3 ) into firstYearput firstYear & ":1" & return into theListput piece( the date, "/", 3 ) into finalYear -- thru todayrepeat with year = firstYear + 1 to finalYearshowBusy-- put " " & year after the messagefind ("/" & year) in field "date"-- if the result is not empty then exit repeatput year & ":" & the number of this card & return after theListend repeatput theList into bg field "first of year"pop cardend setUpFirstOfYearon goFirstCardOfYear theYearif ( theYear > 1900 ) then put theYear - 1900 into theYearrepeat with i = 1 to the number of lines in field "first of year"put line i of field "first of year" into theLineif ( piece( theLine, ":", 1 ) is theYear ) thenput piece( theLine, ":", 2 ) into theCardexit repeatend ifend repeatgo card theCardend goFirstCardOfYearon findSoundStackglobal soundStackpush this cardgo card "Dead Config" of stack "Dead Utility"put card field "Sound Stack" into soundStackpop cardput "Using sounds in ... " & soundStackend findSoundStack-- Used to clean up for distribution--on setForReleaseset the cursor to watchgoFirstCardOfYear 1974if field "date" is not "2/22/74" thenput "Something is not quite right..."exit setForReleaseend ifput the number of this card - 1 into delCardsgo card 1answer "This will delete " & delCards & "cards..." with "Go For It" or "Cancel"if it is "Go For It" thenanswer "Are you REALLY SURE?..." with "YES" or "Cancel"if it is not "YES" then exit setForReleaserepeat for delCardsgo card 1showBusydoMenu "Delete Card"end repeatunsetWasTheresetUpFirstOfYeardoMenu "Compact Stack"end ifend setForReleaseon unsetWasThereput 0 into showCountrepeat foreverfind "X" in field "I Was There"if the result is not empty then exit repeatput empty into field "I Was There"add 1 to showCountend repeatanswer "Cleared " & showCOunt & " shows!"end unsetWasThereon badVoodoput "Delete card " & the number of this card ¬& " through card " & the number of cards & "?" into thePromptanswer thePrompt with "You Bet!" or "Cancel"if it is "You Bet!" thenanswer "Are You sure??" with "You Bet!" or "Cancel"if it is "You Bet!" thenrepeat foreverdoMenu "Delete Card"if the number of this card <1796 then exit repeatput the number of this cardend repeatend ifend ifend badVoodo</script>
